﻿<!-- #include file="../ding.asp" -->
<!-- #include file="../mymin.asp" -->
<%
Response.Buffer = true
Response.Expires = -1

Call Head()
%>
<card title="性能测试"><p align="left">
服务器性能测试<br/><br/>
<%
Response.Flush
Response.Write "整数运算测试，50万次加法运算"
dim t1,t2,lsabc,thetime,thetime2,total
t1=timer
for i=1 to 500000
	lsabc= 1 + 1
next
t2=timer
thetime=cstr(int(( (t2-t1)*10000 )+0.5)/10)
Response.Write "结果：<font color=""red"">" & thetime & "毫秒</font>(200以下正常)<br/>"


Response.Write "浮点运算测试，20万次开方运算"
t1=timer
for i=1 to 200000
	lsabc= 2^0.5
next
t2=timer
thetime2=cstr(int(( (t2-t1)*10000 )+0.5)/10)
Response.Write "结果：<font color=""red"">" & thetime2 & "毫秒</font>(160以下正常)<br/>"

Response.Write "<br/>服务器信息：<table>"&_
	"<tr><td>主机IP</td><td>"&Request.ServerVariables("LOCAL_ADDR")&"</td></tr>"&_
	"<tr><td>端口号</td><td>"&Request.ServerVariables("SERVER_PORT")&"</td></tr>"&_
	"<tr><td>IIS版本</td><td>"&Request.ServerVariables("SERVER_SOFTWARE")&"</td></tr>"&_
	"<tr><td>超时</td><td>"&Server.ScriptTimeout&"秒</td></tr></table>"

%>
<br/>
<a href="index.asp?sid=<%=sid%>">[站长工具]</a><br/>
<a href="../index.asp?sid=<%=sid%>">[后台管理]</a>
</p></card></wml>
<%call CloseConn%>